home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh16a.d64
/
achse l7
(
.txt
)
next >
Wrap
Commodore BASIC
|
1995-03-30
|
376b
|
18 lines
10 XU=-5 : XO=5 : YU=-5 : YO=5
20 SYS 37173,"INT(X)",XU,XO,YU,YO
30 :
40 YP=ABS(YO/(YO-YU))*199
50 FOR XV=XU TO XO
60 : XP=ABS((XV-XU)/(XO-XU))*319
70 : FOR I=-3 TO 3 : SYS 38144,XP,ABS(YP+I) : NEXT I
80 NEXT XV
90 :
100 XP=ABS(XU/(YO-YU))*319
110 FOR YH=XU TO XO
120 : YP=ABS((YO-YH)/(YO-YU))*199
130 : FOR I=-3 TO 3 : SYS 38144,ABS(XP+I),YP : NEXT I
140 NEXT YH
150 :
160 GETZ$ : IF Z$="" THEN 160
170 SYS40211